home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8911a.d64 / miniterm 1.0 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  563b  |  21 lines
  1. 10 POKE53281,11:POKE53280,3:PRINT CHR$(5):POKE53272,23
  2. 20 PRINTCHR$(147):PRINT"  [196][193][212][193]-[212][210][193][206][211][198][197][210]":OPEN2,2,0,CHR$(38)+CHR$(33)
  3. 40 DIM T%(127), P%(255):PRINT" [197]INEN [193]UGENBLICK BITTE !"
  4. 60 FORX=0TO64:P%(X)=X:NEXTX
  5. 70 FORX=65TO90:P%(X)=X+32:NEXTX
  6. 80 FORX=91TO96:P%(X)=X:NEXTX
  7. 90 FORX=97TO122:P%(X)=X-32:NEXTX
  8. 100 FORX=193TO218:P%(X)=X-128:NEXTX
  9. 110 FORX=0TO126:T%(X)=P%(X):NEXTX
  10. 120 P%(148)=127:P%(127)=148:PRINT" [207][206][204][201][206][197] "
  11. 140 GET#2,A$
  12. 150 IF A$=""THEN 190
  13. 160 IF T%(ASC(A$))=34 THEN POKE212,0
  14. 170 PRINTCHR$(T%(ASC(A$)));
  15. 180 GOTO140
  16. 190 GETB$
  17. 200 IFB$=""THEN 140
  18. 210 IF B$="^" THEN 240
  19. 220 PRINT#2,CHR$(P%(ASC(B$)));:GOTO 140
  20. 240 PRINT:PRINT"- [196]ATENTRANSFER BEENDET - ":CLOSE2:REM ^ TASTE FUER ENDE:END
  21.